
(** add_test_case test_name test_func *)
val add_test_case : string -> (unit -> unit) -> unit

(** add_subprogram sub_name sub_func *)
val add_subprogram : string -> (unit -> unit) -> unit

(** Returns the command to invoke a subprogram. *)
val subprogram_cmd : string -> string

(** Runs all registered test cases. *)
val run : string array -> unit
